home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / dobbs / jun95 / isen11.gif < prev    next >
Graphics Interchange Format  |  1997-01-13  |  93.4 KB  |  551x321  |  8-bit (121 colors)
   ocr: Description AutoTester Code Save cursor position. LocateCursor host SFOCUSWND N.COLSAVE W.ROWSAVE Loop through all cursor positions. Label "LOOKLOOP" Look for field label "Name" Look text "Name" host "SFOCUSWND" e -9, 0, -4, 0 (cursor-relative LOOK function). cursor area Found label? No? If No Go to next line. >tab Only one field per row. Are we back where we started? LocateCursor host SFOCUSWND W.COL M.ROW >Compare W.ROW W.ROWSAVE >If Not equal Not done yet, keep looking. >>Goto "LOOKLOOP" NOT Find Field Label Display screen message. >Message "Name FIBLD NOT FOUND" wait 1> Write out log file. ...